home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 November / Chip Kasım 2003.iso / prog / basic / WINAMP / SETUP.EXE / Wacs / xml / winamp / scripts / titleboxslidercb.m < prev    next >
Encoding:
Text File  |  2002-06-25  |  1.4 KB  |  53 lines
  1. #include <lib/std.mi>
  2.  
  3. Global Slider slidercb;
  4. Global Text titletext;
  5. Global String prefix, one, many;
  6. Global Group pgroup;
  7. Global GuiObject targetbase;
  8.  
  9. System.onScriptLoaded() {
  10.  
  11.   // we only run in groups!
  12.   pgroup = getScriptGroup();
  13.   if (pgroup == NULL) return;
  14.  
  15.   String par = getParam();
  16.  
  17.   String gid = getToken(par, ";", 0);
  18.  
  19.   // if the base group isnt there or doesn't have a titlebox.text object, abort
  20.   targetbase = pgroup.findObject(gid);
  21.   if (targetbase == NULL) {
  22.     messageBox("titleboxslidercm.make : targetbase not found (param 0 = " + gid + ")", "Error", 0, "");
  23.     return;
  24.   }
  25.  
  26.   titletext = targetbase.findObject("titlebox.text");
  27.   if (titletext == NULL) {
  28.     messageBox("titleboxslidercm.make : titlebox.text not found", "Error", 0, "");
  29.     return;
  30.   }
  31.  
  32.   String id = getToken(par, ";", 1);
  33.   prefix = getToken(par, ";", 2);
  34.   one = getToken(par, ";", 3);
  35.   many = getToken(par, ";", 4);
  36.   if (many == "") many = one;
  37.  
  38.   slidercb = targetbase.findObject(id);
  39.   if (slidercb == NULL) {
  40.     messageBox("titleboxslidercm.make : slidercb not found (param 1 = " + id + ")", "Error", 0, "");
  41.     return;
  42.   }
  43.  
  44.   slidercb.onSetPosition(slidercb.getPosition());
  45.  
  46. }
  47.  
  48. slidercb.onSetPosition(int val) {
  49.   String s = prefix + IntegerToString(val);
  50.   if (val > 1) s = s + many; else s = s + one;
  51.   targetbase.setXmlParam("suffix", s);
  52. }
  53.